home *** CD-ROM | disk | FTP | other *** search
/ Chip: Special Tips & Tricks for Windows 95 / Chip Wintips.iso / sharewar / online / activex / acrobat / rdrx32b6.exe / FILE / ARCHIVE.Z / ACROBAT / ACRORD32.EXE / PSPROCSET / 5 < prev    next >
Encoding:
Text File  |  1996-08-07  |  10.5 KB  |  594 lines
  1. %%BeginFile: pdf.prc
  2. %%Copyright: Copyright 1987-1996 Adobe Systems Incorporated. All Rights Reserved.
  3. /initialize {
  4. _ColorSep5044? {sep_ops begin 50 dict begin} if
  5. newpath
  6. } bd
  7. /terminate {
  8. _ColorSep5044? {end end} if
  9. } bd
  10. Level2? StartLoad
  11. { /m/moveto ld
  12. /l/lineto ld
  13. /c/curveto ld
  14. /setSA/setstrokeadjust ld
  15. } EndLoad
  16. Level2? not StartLoad
  17. {
  18. /pl {
  19. transform
  20. 0.25 sub round 0.25 add exch
  21. 0.25 sub round 0.25 add exch
  22. itransform
  23. } bd
  24. /m { _sa? { pl } if moveto } bd
  25. /l { _sa? { pl } if lineto } bd
  26. /c { _sa? { pl } if curveto } bd
  27. /setSA { /_sa? xdd } bd
  28. } EndLoad
  29. /v { currentpoint 6 2 roll c } bd
  30. /y { 2 copy c } bd
  31. /h/closepath ld
  32. /d/setdash ld
  33. /j/setlinejoin ld
  34. /J/setlinecap ld
  35. /M/setmiterlimit ld
  36. /w/setlinewidth ld
  37. /cf currentflat def
  38. /i {
  39. dup 0 eq { pop cf } if
  40. setflat
  41. } bd
  42. /ilp { /_lp /none dd } bd
  43. /sfc {
  44. _lp /fill ne {
  45. _sfcs
  46. _sfc
  47. /_lp /fill dd
  48. } if
  49. } dd
  50. /ssc {
  51. _lp /stroke ne {
  52. _sscs
  53. _ssc
  54. /_lp /stroke dd
  55. } if
  56. } dd
  57. /n {
  58. _doClip 1 ge {
  59. _doClip 1 eq { clip } { eoclip } ifelse
  60. /_doClip 0 dd
  61. } if
  62. newpath
  63. } bd
  64. /f {
  65. _doClip 1 ge
  66. {
  67. gsave sfc fill grestore
  68. _doClip 1 eq { clip } { eoclip } ifelse
  69. newpath
  70. ilp
  71. /_doClip 0 dd
  72. }
  73. { sfc fill }
  74. ifelse
  75. } bd
  76. /f* {
  77. _doClip 1 ge
  78. {
  79. gsave sfc eofill grestore
  80. _doClip 1 eq { clip } { eoclip } ifelse
  81. newpath
  82. ilp
  83. /_doClip 0 dd
  84. }
  85. { sfc eofill }
  86. ifelse
  87. } bd
  88. /S {
  89. _doClip 1 ge
  90. {
  91. gsave ssc stroke grestore
  92. _doClip 1 eq { clip } { eoclip } ifelse
  93. newpath
  94. ilp
  95. /_doClip 0 dd
  96. }
  97. { ssc stroke }
  98. ifelse
  99. } bd
  100. /s { h S } bd
  101. /B {
  102. _doClip dup 1 ge
  103. gsave f grestore
  104. {
  105. gsave S grestore
  106. 1 eq { clip } { eoclip } ifelse
  107. newpath
  108. ilp
  109. /_doClip 0 dd
  110. }
  111. { pop S }
  112. ifelse
  113. } bd
  114. /b { h B } bd
  115. /B* {
  116. _doClip dup 1 ge
  117. gsave f* grestore
  118. {
  119. gsave S grestore
  120. 1 eq { clip } { eoclip } ifelse
  121. newpath
  122. ilp
  123. /_doClip 0 dd
  124. }
  125. { pop S }
  126. ifelse
  127. } bd
  128. /b* { h B* } bd
  129. /W { /_doClip 1 dd } bd
  130. /W* { /_doClip 2 dd } bd
  131. /q/save ld
  132. /Q { restore ilp } bd
  133. Level2? StartLoad
  134. { /defineRes/defineresource ld
  135. /findRes/findresource ld
  136. currentglobal
  137. true setglobal
  138. [/Function /ExtGState /Form]
  139. { /Generic /Category findresource dup length dict copy /Category defineresource pop }
  140. forall
  141. setglobal
  142. } EndLoad
  143. Level2? not StartLoad
  144. { /AlmostFull?
  145. { dup maxlength exch length sub 2 le
  146. } bind def
  147. /Expand
  148. { 1 index maxlength mul cvi dict
  149. dup begin exch { def } forall end
  150. } bind def
  151. /xput
  152. { 3 2 roll
  153. dup 3 index known not
  154. { dup AlmostFull? { 1.5 Expand } if
  155. } if
  156. dup 4 2 roll put
  157. } bind def
  158. /defineRes
  159. { _categories 1 index known not
  160. { /_categories _categories 2 index 10 dict xput store
  161. } if
  162. _categories exch 2 copy get 5 -1 roll 4 index xput put
  163. } bind def
  164. /findRes
  165. { _categories exch get exch get
  166. } bind def
  167. } EndLoad
  168. /cs
  169. {
  170. dup where { pop load } if
  171. dup /_fcs xdd
  172. ucs
  173. _cpcf exch get
  174. /_fc xdd
  175. /_fp null dd
  176. } bd
  177. /CS
  178. {
  179. dup where { pop load } if
  180. dup /_scs xdd ucs _cpcs exch get /_sc xdd /_sp null dd
  181. } bd
  182. /ucs {
  183. dup type /arraytype eq
  184. { dup 0 get
  185. dup /Indexed eq
  186. { pop 0 get }
  187. { /Pattern eq
  188. { dup length 2 eq
  189. { 1 get ucs }
  190. { 0 get }
  191. ifelse }
  192. { 0 get }
  193. ifelse }
  194. ifelse }
  195. if }
  196. bd
  197. /_cpcf
  198. 15 dict dup begin
  199. /DefaultGray _f1 def
  200. /DeviceGray _f1 def
  201. /DefaultRGB _f3 def
  202. /DeviceRGB _f3 def
  203. /DeviceCMYK _f4 def
  204. /CalGray _f1 def
  205. /CalRGB _f3 def
  206. /CalCMYK _f4 def
  207. /Lab _f3 def
  208. /Pattern _f0 def
  209. /Indexed _f1 def
  210. /Separation _f1 def
  211. /CIEBasedA _f1 def
  212. /CIEBasedABC _f3 def
  213. end
  214. dd
  215. /_cpcs
  216. 15 dict dup begin
  217. /DefaultGray _s1 def
  218. /DeviceGray _s1 def
  219. /DefaultRGB _s3 def
  220. /DeviceRGB _s3 def
  221. /DeviceCMYK _s4 def
  222. /CalGray _s1 def
  223. /CalRGB _s3 def
  224. /CalCMYK _s4 def
  225. /Lab _s3 def
  226. /Pattern _s0 def
  227. /Indexed _s1 def
  228. /Separation _s1 def
  229. /CIEBasedA _s1 def
  230. /CIEBasedABC _s3 def
  231. end
  232. dd
  233. Level2? not StartLoad {
  234. /_sfcs { } dd
  235. /_sscs { } dd
  236. /_sfc { _fc L1setcolor } dd
  237. /_ssc { _sc L1setcolor } dd
  238. /L1setcolor {
  239. aload length
  240. dup 0 eq
  241. { pop .5 setgray }
  242. { dup 1 eq
  243. { pop setgray }
  244. { 3 eq
  245. { setrgbcolor }
  246. { setcmykcolor }
  247. ifelse }
  248. ifelse }
  249. ifelse
  250. } bind dd
  251. /ri/pop ld
  252. /makePat/pop ld
  253. /sethalftone
  254. {
  255. begin
  256. HalftoneType 1 eq
  257. { Frequency Angle /SpotFunction load }
  258. { 0 0 currentdict }
  259. ifelse
  260. setscreen
  261. end
  262. } bind def
  263. } EndLoad
  264. Level2? StartLoad
  265. {
  266. /_sfcs
  267. {
  268. _fcs setcolorspace
  269. } bind dd
  270. /_sscs
  271. {
  272. _scs setcolorspace
  273. } bind dd
  274. /_sfc
  275. {
  276. _fc aload pop
  277. _fp null eq
  278. { setcolor }
  279. { _fp setpattern }
  280. ifelse
  281. } bind dd
  282. /_ssc
  283. {
  284. _sc aload pop
  285. _sp null eq { setcolor } { _sp setpattern } ifelse
  286. } bind dd
  287. /ri/pop ld
  288. /makePat /makepattern ld
  289. } EndLoad
  290. /sc
  291. {
  292. _fc astore pop
  293. ilp
  294. } bd
  295. /SC
  296. {
  297. _sc astore pop
  298. ilp
  299. } bd
  300. /scn {
  301. dup type /dicttype eq
  302. { dup /_fp xdd
  303. /PaintType get 1 eq
  304. { /_fc _f0 dd ilp }
  305. { /_fc _cpcf _fcs ucs get dd
  306. sc }
  307. ifelse }
  308. { sc }
  309. ifelse
  310. } bd
  311. /SCN {
  312. dup type /dicttype eq
  313. { dup /_sp xdd
  314. /PaintType get 1 eq
  315. { /_sc _s0 dd ilp }
  316. { /_sc _cpcs _scs ucs get dd
  317. SC }
  318. ifelse }
  319. { SC }
  320. ifelse
  321. } bd
  322. /g { /DefaultGray cs sc } bd
  323. /rg { /DefaultRGB cs sc } bd
  324. /k { /DeviceCMYK cs sc } bd
  325. /G { /DefaultGray CS SC } bd
  326. /RG { /DefaultRGB CS SC } bd
  327. /K { /DeviceCMYK CS SC } bd
  328. /cm { _mtx astore concat } bd
  329. /re {
  330. 4 2 roll m
  331. 1 index 0 rlineto
  332. 0 exch rlineto
  333. neg 0 rlineto
  334. h
  335. } bd
  336. /RC/rectclip ld
  337. /EF/execform ld
  338. /PS { cvx exec } bd
  339. /initgs {
  340. /DefaultGray where
  341. { pop }
  342. { /DefaultGray /DeviceGray dd }
  343. ifelse
  344. /DefaultRGB where
  345. { pop }
  346. { /DefaultRGB /DeviceRGB dd }
  347. ifelse
  348. 0 g 0 G
  349. [] 0 d 0 j 0 J 10 M 1 w
  350. true setSA
  351. } bd
  352. 17 dict dup begin
  353. /CosineDot
  354. { 180 mul cos exch 180 mul cos add 2 div } bd
  355. /Cross
  356. { abs exch abs 2 copy gt { exch } if pop neg } bd
  357. /Diamond
  358. { abs exch abs 2 copy add .75 le
  359. { dup mul exch dup mul add 1 exch sub }
  360. { 2 copy add 1.23 le
  361. { .85 mul add 1 exch sub }
  362. { 1 sub dup mul exch 1 sub dup mul add 1 sub }
  363. ifelse }
  364. ifelse } bd
  365. /DoubleDot
  366. { 2 { 360 mul sin 2 div exch } repeat add } bd
  367. /Ellipse
  368. { abs exch abs 2 copy 3 mul exch 4 mul add 3 sub dup 0 lt
  369. { pop dup mul exch .75 div dup mul add 4 div
  370. 1 exch sub }
  371. { dup 1 gt
  372. {pop 1 exch sub dup mul exch 1 exch sub
  373. .75 div dup mul add 4 div 1 sub }
  374. { .5 exch sub exch pop exch pop }
  375. ifelse }
  376. ifelse } bd
  377. /EllipseB
  378. { dup 5 mul 8 div mul exch dup mul exch add sqrt 1 exch sub } bd
  379. /EllipseC
  380. { dup .5 gt { 1 exch sub } if
  381. dup .25 ge
  382. { .5 exch sub 4 mul dup mul 1 sub }
  383. { 4 mul dup mul 1 exch sub }
  384. ifelse
  385. exch
  386. dup .5 gt { 1 exch sub } if
  387. dup .25 ge
  388. { .5 exch sub 4 mul dup mul 1 sub }
  389. { 4 mul dup mul 1 exch sub }
  390. ifelse
  391. add -2 div } bd
  392. /InvertedDoubleDot
  393. { 2 { 360 mul sin 2 div exch } repeat add neg } bd
  394. /InvertedEllipseA
  395. { dup mul .9 mul exch dup mul add 1 sub } bd
  396. /InvertedSimpleDot
  397. { dup mul exch dup mul add 1 sub } bd
  398. /Line
  399. { exch pop abs neg } bd
  400. /LineY
  401. { pop } bd
  402. /Rhomboid
  403. { abs exch abs 0.9 mul add 2 div } bd
  404. /Round
  405. { abs exch abs 2 copy add 1 le
  406. { dup mul exch dup mul add 1 exch sub }
  407. { 1 sub dup mul exch 1 sub dup mul add 1 sub }
  408. ifelse } bd
  409. /SimpleDot
  410. { dup mul exch dup mul add 1 exch sub } bd
  411. /Square
  412. { abs exch abs 2 copy lt { exch } if pop neg } bd
  413. end
  414. { /Function defineRes pop } forall
  415. /Identity {} /Function defineRes pop
  416. Level2? StartLoad {
  417. /gs
  418. {
  419. begin
  420. /SA here { setstrokeadjust } if
  421. /OP here { setoverprint } if
  422. /BG here { setblackgeneration } if
  423. /UCR here { setundercolorremoval } if
  424. /HT here { sethalftone } if
  425. /sethalftonephase isdefined? { /HTP here { sethalftonephase } if } if
  426. /TR here
  427. {
  428. dup xcheck { settransfer } { aload pop setcolortransfer } ifelse
  429. } if
  430. end
  431. } bd
  432. { /Default /Halftone findresource pop } stopped
  433. {
  434. currenthalftone exch defineresource pop }
  435. if
  436. /Type6supported? {
  437. { 6 /HalftoneType findresource } stopped
  438. { pop pop false } { pop true } ifelse
  439. } bd
  440. /Convert6to3 {
  441. begin
  442. Thresholds Width Height mul string readstring pop
  443. /Thresholds exch def
  444. /HalftoneType 3 def
  445. currentdict
  446. end
  447. } bd
  448. /sethalftone6
  449. {
  450. dup /HalftoneType get 6 eq
  451. { Type6supported?
  452. { Convert6to3 } if
  453. } if
  454. sethalftone
  455. } bd
  456. } EndLoad
  457. Level2? not StartLoad {
  458. /gs
  459. {
  460. begin
  461. /SA here { /_sa? xdd } if
  462. /OP here { dup /_op? xdd
  463. /setoverprint where {pop setoverprint}
  464. {pop} ifelse
  465. } if
  466. /HT here { sethalftone } if
  467. /TR here { dup type xcheck { settransfer } if } if
  468. end
  469. } bd
  470. 5 dict dup
  471. begin
  472. currentscreen 1 [/HalftoneType /SpotFunction /Angle /Frequency]
  473. { exch def } forall
  474. end
  475. /Default exch /Halftone defineRes pop
  476. } EndLoad
  477. /int {
  478. dup 2 index sub 3 index 5 index sub div 6 -2 roll sub mul
  479. exch pop add exch pop
  480. } bd
  481. _ColorSep5044? {
  482. /scn {
  483. dup type /dicttype eq
  484. { dup /_fp xdd
  485. /PaintType get 1 eq
  486. { /_fc _f0 dd ilp }
  487. { /_fc _cpcf _fcs ucs get dd
  488. sc }
  489. ifelse }
  490. { _fcs 0 get /Separation eq
  491. { 1 exch sub
  492. 1 _fcs 3 get exec _fcs 1 get
  493. findcmykcustomcolor
  494. exch setcustomcolor
  495. }
  496. { sc }
  497. ifelse }
  498. ifelse
  499. } bd
  500. /SCN {
  501. dup type /dicttype eq
  502. { dup /_sp xdd
  503. /PaintType get 1 eq
  504. { /_sc _s0 dd ilp }
  505. { /_sc _cpcs _scs ucs get dd
  506. SC }
  507. ifelse }
  508. { _scs 0 get /Separation eq
  509. { 1 exch sub
  510. 1 _scs 3 get exec _scs 1 get
  511. findcmykcustomcolor
  512. exch setcustomcolor
  513. }
  514. { SC }
  515. ifelse }
  516. ifelse
  517. } bd
  518. /setcolormark5044 {
  519. _op? {
  520. dup length 4 eq {
  521. dup aload pop 0 eq exch 0 eq or exch 0 eq or exch 0 eq or {
  522. 3 -1 roll pop
  523. /_tmpcolr? exch dd
  524. /_tmpop? exch dd
  525. _tmpcolr? 0 get dup 0 ne {
  526. 1 0 0 0 (Cyan) findcmykcustomcolor exch setcustomcolor
  527. gsave dup dup 0 gt { 1 add ndup } {pop} ifelse
  528. _tmpop? cvx exec grestore
  529. } {pop} ifelse
  530. _tmpcolr? 1 get dup 0 ne {
  531. 0 1 0 0 (Magenta) findcmykcustomcolor exch setcustomcolor
  532. gsave dup dup 0 gt { 1 add ndup } {pop} ifelse
  533. _tmpop? cvx exec grestore
  534. gsave _tmpop? cvx exec grestore
  535. } {pop} ifelse
  536. _tmpcolr? 2 get dup 0 ne {
  537. 0 0 1 0 (Yellow) findcmykcustomcolor exch setcustomcolor
  538. gsave dup dup 0 gt { 1 add ndup } {pop} ifelse
  539. } {pop} ifelse
  540. _tmpcolr? 3 get dup 0 ne {
  541. 0 0 0 1 (Black) findcmykcustomcolor exch setcustomcolor
  542. gsave dup dup 0 gt { 1 add ndup } {pop} ifelse
  543. _tmpop? cvx exec grestore
  544. } {pop} ifelse
  545. dup 1 add npop
  546. }
  547. {pop exch cvx exec cvx exec}
  548. ifelse
  549. }
  550. {pop exch cvx exec cvx exec}
  551. ifelse
  552. }
  553. {pop exch cvx exec cvx exec}
  554. ifelse
  555. } bd
  556. /f {
  557. _doClip 1 ge
  558. {
  559. gsave 0 /sfc /fill _fc setcolormark5044 grestore
  560. _doClip 1 eq { clip } { eoclip } ifelse
  561. newpath
  562. ilp
  563. /_doClip 0 dd
  564. }
  565. { 0 /sfc /fill _fc setcolormark5044 }
  566. ifelse
  567. } bd
  568. /f* {
  569. _doClip 1 ge
  570. {
  571. gsave 0 /sfc /eofill _fc setcolormark5044 grestore
  572. _doClip 1 eq { clip } { eoclip } ifelse
  573. newpath
  574. ilp
  575. /_doClip 0 dd
  576. }
  577. { 0 /sfc /eofill _fc setcolormark5044 }
  578. ifelse
  579. } bd
  580. /S {
  581. _doClip 1 ge
  582. {
  583. gsave 0 /ssc /stroke _sc setcolormark5044 grestore
  584. _doClip 1 eq { clip } { eoclip } ifelse
  585. newpath
  586. ilp
  587. /_doClip 0 dd
  588. }
  589. { 0 /ssc /stroke _sc setcolormark5044 }
  590. ifelse
  591. } bd
  592. } if
  593. %%EndFile
  594.